home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Eagles Nest BBS 4
/
Eagles_Nest_Mac_Collection_Disc_4.TOAST
/
Desktop Publishing
/
Zing10
/
ZING™.rsrc
/
STR#_1800.txt
< prev
next >
Wrap
Text File
|
1989-06-26
|
3KB
|
201 lines
definefont pop} bdef
currentdict dup end end /FontName get exch
{exch pop} ifelse} forall} if pop
{Encoding 2 index 2 index put pop 1 add}
exch {dup type /nametype eq
{/Encoding Encoding 256 array copy def 0
/FontName exch def dup length 0 ne
{1 index /FID ne {def} {pop pop} ifelse} forall
/Z {findfont begin currentdict dup length dict begin
% font construction operators
/U {} bdef
/u {} bdef
% group construction operators
/T {grestore} bdef
/o {_D /t {pop _L} def} bdef
/a {_D /t {dup p _A _s P _A _S _L} def} bdef
/r {_D P /t {_A _S _L} def} bdef
/e {_D p /t {_A _s _L} def} bdef
_G currentmatrix pop} bdef
/_D {_g currentmatrix pop gsave concat
/_G matrix def
/_g matrix def
findfont exch scalefont setfont} bdef
/z {_z exch get /_a xdef /_t xdef /_l xdef exch
bind {dup _w exch neg exch neg} bind] def
/_z [{0 0} bind {dup _w exch neg 2 div exch neg 2 div}
_t mul add exch} bdef
/_w {dup stringwidth exch 3 -1 roll length 1 sub
/_L {0 _l neg translate _G currentmatrix pop} bdef
/_A {_a moveto _t exch 0 exch} bdef
forall pop pop pop n} bdef
_stroke _G setmatrix moveto 3 copy pop rmoveto}
charpath currentpoint _g setmatrix
/_S {(?) exch {2 copy 0 exch put pop dup false
/_s /ashow ldef
% text block construction and painting operators
/b {closepath B} bdef
/B {gsave F grestore S} bdef
/s {closepath S} bdef
/S {P _stroke} bdef
/f {closepath F} bdef
/F {p _fill} bdef
/N /n ldef
/n /newpath ldef
% path painting operators
increase flatness) def n _E} if} bdef
{/_e [pathbbox] def /_f (ERROR: can't stroke,
/_stroke {{stroke} stopped
flatness) def n _E} if} bdef
{/_e [pathbbox] def /_f (ERROR: can't fill, increase
/_fill {{fill} stopped
e _f t T grestore} if} bdef
_e 0 get _e 2 get add 2 div _e 1 get _e 3 get add 2 div]
/Courier 20 0 0 1 z [0.966 0.259 -0.259 0.966
10 M [] 0 d
/_E {_e length 0 ne {gsave 0 g 0 G 0 i 0 J 0 j 1 w
/_e [] def
% error operators
/m {_r moveto} bdef
/L /l ldef
/l {_r lineto} bdef
/Y /y ldef
/y {_r 2 copy curveto} bdef
/V /v ldef
/v {currentpoint 6 2 roll _r curveto} bdef
/C /c ldef
/c {_r curveto} bdef
/_r {transform _R exch _R exch itransform} bdef
/_R {.25 sub round .25 add} bdef
% path construction operators
/w /setlinewidth ldef
/M /setmiterlimit ldef
/J /setlinecap ldef
/j /setlinejoin ldef
/i {dup 0 eq {pop _i} if setflat} bdef
/_i currentflat def
/d /setdash ldef
{_C _M _Y _B _k} def} bdef
/K {/_B xdef /_Y xdef /_M xdef /_C xdef /P
{_c _m _y _b _k} def} bdef
/k {/_b xdef /_y xdef /_m xdef /_c xdef /p
/G {/_B xdef /P {_B setgray} def} bdef
/g {/_b xdef /p {_b setgray} def} bdef
setrgbcolor pop} bind} ifelse def
{/setcmybcolor get} {{1 sub 4 1 roll _K _K _K
/_k /setcmybcolor where
/_K {3 index add neg dup 0 lt {pop 0} if 3 1 roll} bdef
% graphic state operators
/xdef {exch def} bdef
/ldef {load def} bdef
/bdef {bind def} bind def
% definition operators
/Revision 0 def
/Version 0 def
/Adobe_Illustrator_1.1 dup 100 dict def load begin
Systems Incorporated.
% Adobe Illustrator is a trademark of Adobe
% All Rights Reserved.
% Copyright (C) 1987 Adobe Systems Incorporated.
%%BeginProcSet:Adobe_Illustrator_1.1 0 0